home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 003 / db2ios.arc / INVENT.INV < prev    next >
Encoding:
Text File  |  1983-01-04  |  1.9 KB  |  67 lines
  1. * invent.inv 08/18/83
  2. SET CONSOLE OFF
  3. ? CHR(28)
  4. SET CONSOLE ON
  5. GOTO TOP
  6. STORE 0 TO pageno
  7. STORE 0 TO col1
  8. STORE 0 TO col2
  9. STore 0 TO col3
  10. STORE 0 TO COL4
  11. STORE 0 TO COL5
  12. STORE 0 TO COL6
  13. STORE 0 TO COL7
  14. STORE 0 TO COL8
  15. STORE 0 TO COL9
  16. STORE T to MORE
  17. SET MARGIN TO 5
  18. DO WHILE more
  19. STORE pageno + 1 TO pageno
  20. STORE 7 TO lineno
  21. ERASE
  22. EJECT
  23. ? ' '
  24. ? '========================= SIG/M DISK INVENTORY ====================='
  25. ? ' '
  26. ? '           ' + date() + '                       PAGE: ' + str(pageno,3)
  27. ? ' '
  28. ? 'VOL  OPEN    BACK  WAITING  STOCK  CLOSING NORMAL SHOULD ACTUAL CLOSING'
  29. ? 'NO. INVENT  ORDERS TO SHIP  RECVD  INVENT. STOCK  ORDER  ORDER  BALANCE'
  30. ? ' '
  31. DO WHILE lineno <55
  32. IF .NOT. EOF
  33. STORE open:inv-back:ord-wait:ship+recvd TO it
  34. STORE COL1 + OPEN:INV TO COL1
  35. STORE COL2 + BACK:ORD TO COL2
  36. STORE COL3 + WAIT:SHIP TO COL3
  37. STORE COL4 + RECVD TO COL4
  38. STORE COL5 + IT TO COL5
  39. STORE COL6 + NORM:STK TO COL6
  40. STORE COL7 + ORDER TO COL7
  41. STORE COL8 + PEND TO COL8
  42. STORE COL9 + IT + PEND TO COL9
  43. ? STR(disk,3,0) + '  ' + str(open:inv,3,0) + '    ' + STR(back:ord,3,0);
  44. +'     ' + STR(wait:ship,3,0) + '     ' + STR(recvd,3,0) + '     ';
  45. + STR(it,3,0)+'    '+ STR(norm:stk,3,0) + '    ' + STR(order,3,0);
  46. + '     '+str(pend,3,0)+'     ' +str(it+pend,3,0)
  47. ELSE
  48. STORE f TO more
  49. ENDIF not .EOF.
  50. STORE lineno + 1 to lineno
  51. skip
  52. ENDDO while lineno > 55
  53. ENDDO more
  54. ? '----------------------------------------------------------------------'
  55. ? '    ' + STR(COL1,4,0)+'   ' + STR(COL2,4,0) + '    ';
  56. +  STR(COL3,4,0) + '    '+STR(COL4,4,0)+'    '+STR(COL5,4,0);
  57. +'   ' +STR(COL6,4,0)+'   '+STR(COL7,4,0)+'    '+STR(COL8,4,0);
  58. +'    '+STR(COL9,4,0)
  59. EJECT
  60. SET CONSOLE OFF
  61. ? CHR(30)
  62. SET PRINT OFF
  63. SET CONSOLE ON
  64. RELEASE ALL
  65. STORE t TO more
  66.  
  67.